Unit MenuDraw;

{$mode objfpc}{$H+}

Interface

Uses
  Crt;

Procedure Menu;
Procedure Attention;
Procedure Attention_NoClear;

Implementation


Procedure Attention;
 Begin
   GotoXY(1,30);
   TextColor(Red);
   TextBackground(000111);
   Write('Press Enter to Continue');
   Readln;
   TextColor(White);
   TextBackground(0);
   Clrscr;
 end;

Procedure Attention_NoClear;
 Begin
   GotoXY(1,30);
   TextColor(Red);
   TextBackground(000111);
   Write('Press Enter to Continue');
   Readln;
   TextColor(White);
   TextBackground(0);
 end;

Procedure Menu;
Begin
  Clrscr;
  TextColor(White);
  Writeln('Welcome to cl-RPG');
  Writeln('Press a number to do that action');
  Writeln('1 - Play game');
  Writeln('2 - Create Character');
  Writeln('3 - Save Character');
  Writeln('4 - Load Character');
  Writeln('9 - Quit');

end;

end.

